home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_asm / disasm / testdrv.bas < prev    next >
BASIC Source File  |  1988-06-03  |  2KB  |  45 lines
  1. 10  'DISK DRIVE TEST
  2. 20  'JOE McDERMOTT - DECEMBER 1982
  3. 25  'NORTH JERSEY IBM PC CLUB
  4. 30  '
  5. 40  'THE PROGRAM CREATES A SERIES OF SEQUENTIAL FILES
  6. 50  'IT WRITES DATA TO THEM AND READS IT BACK FOR VERIFICATION
  7. 60  'FINALLY THE TEST FILES ARE ERASED/
  8. 70  'THE FILES ARE OF THE FORM "XXX.TST" WHERE "XXX" ARE THREE LETTERS
  9. 80  'CHOSEN AT RANDOM, E.G. "EBG.TST","CXU.TST"
  10. 90  '
  11. 100  NUMFILES=40        'NUMBER OF FILES THAT WILL BE CREATED
  12. 110  DIM FS$(NUMFILES)  'ARRAY FOR STORING FILESPECS
  13. 120  FTYPE$=".TST"      'FILE EXTENSION USED IN THE TEST
  14. 130  INPUT"DRIVE TO BE TESTED ";DD$
  15. 140  DD$=DD$+":"
  16. 150  '
  17. 160  INPUT"*** INSERT DISK AND PRESS `ENTER' ***",Z$
  18. 170  '
  19. 180  '   ---------- CREATE FILES ----------
  20. 190  FOR I=1 TO NUMFILES
  21. 200    FILENAME$ = CHR$(RND*26+64)+CHR$(RND*26+64)+CHR$(RND*26+64)
  22. 205    FS$(I)=DD$+FILENAME$+FTYPE$
  23. 210    PRINT"CREATING: ";FS$(I);" #";I
  24. 220    OPEN "O",1,FS$(I)           'CREATE DIRECTORY ENTRY
  25. 230    PRINT#1,STRING$(255,"*")    'WRITE DATA TO FILE
  26. 240    PRINT#1,STRING$(255,"*")
  27. 250    PRINT#1,STRING$(255,"*")
  28. 260    CLOSE 1
  29. 270  NEXT I
  30. 280  '   ---------- READ BACK FILES -----------
  31. 290  FOR I=1 TO NUMFILES
  32. 300    PRINT"READING: ";FS$(I);" #";I
  33. 310    OPEN "I",1,FS$(I)
  34. 320    INPUT#1,L$:PRINT LEFT$(L$,75)
  35. 330    INPUT#1,L$:PRINT LEFT$(L$,75)
  36. 335    INPUT#1,L$:PRINT LEFT$(L$,75)
  37. 340    CLOSE 1
  38. 350  NEXT I
  39. 360  '   ---------- ERASE FILES ----------
  40. 370  FOR I=1 TO NUMFILES
  41. 380    PRINT"ERASING: ";FS$(I)
  42. 390    KILL FS$(I)
  43. 400  NEXT I
  44. 410  END  'OF PROGRAM
  45.